home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Magazin / Future-PD / Scripts / S4_SnackBar.script < prev    next >
Text File  |  1998-05-15  |  879b  |  48 lines
  1. :LOOP|
  2. FACE 0|
  3. WAIT 15|
  4. GOTO LOOP|
  5. :TOUCH|
  6. [ "What'll it be, sir?  All our items"|
  7. [ "are prepared fresh every morning!"|
  8. MENURESET|
  9. MENUADD Pizza "Buy a slice of Pizza for 25cr"|
  10. MENUADD Sandwich "Buy a sandwich for 8cr"|
  11. MENUADD Special "Buy both a pizza and a sandwich for 30cr"|
  12. MENUADD Cancel "Leave the Snack Bar"|
  13. MENUCHOICE @RES|
  14. RATINGGET CRED @CRED|
  15. ONGOTO 0 @RES L0 L1 L2 LOOP|
  16. GOTO LOOP|
  17. :L0|
  18. MATH @CRED + 5|
  19. RATINGSET CRED @CRED|
  20. BUY PizzaSlice @RES|
  21. IF @RES GOOD|
  22. MATH @CRED - 5|
  23. RATINGSET CRED @CRED|
  24. GOTO BAD|
  25. :L1|
  26. BUY Sandwich @RES|
  27. IF @RES GOOD|
  28. GOTO BAD|
  29. :L2|
  30. BUY Sandwich @RES|
  31. IF @RES L2.2|
  32. GOTO BAD|
  33. :L2.2|
  34. RATINGGET CRED @CRED|
  35. MATH @CRED + 8|
  36. RATINGSET CRED @CRED|
  37. BUY PizzaSlice @RES|
  38. IF @RES GOOD|
  39. MATH @CRED - 8|
  40. SELL Sandwich @RES|
  41. RATINGSET CRED @CRED|
  42. :BAD|
  43. [ "Sorry, sir.  Not enough credits!"|
  44. GOTO LOOP|
  45. :GOOD|
  46. [ "Thanks a lot, sir!"|
  47. GOTO LOOP|
  48.